﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class almacenesFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As AlmacenesBE
        Dim tmpAlmacen As AlmacenesBE = New AlmacenesBE()
        Try
            With tmpAlmacen
                .Id = convertDTFromDb.convertInt32(dr.Item("Id"))
                .IdEmpresa = convertDTFromDb.convertInt32(dr.Item("IdEmpresa"))
                .IdAlmacen = convertDTFromDb.convertInt32(dr.Item("IdAlmacen"))
                .DesAlmacen = convertDTFromDb.ConvertString(dr.Item("DesAlmacen"))
                .Status = convertDTFromDb.ConvertString(dr.Item("Status"))
            End With
            Return tmpAlmacen
        Catch ex As Exception
            Throw
        Finally
            tmpAlmacen = Nothing
        End Try
    End Function
End Class
